home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / cli / CLI_Tools.lha / PathPart.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-02-03  |  2.1 KB  |  101 lines
  1.  
  2. /******************************************************************************
  3.  
  4.     MODULE
  5.     PathPart.c
  6.  
  7.     DESCRIPTION
  8.     Get one string on Commandline
  9.     and write its PathPart to StdOut
  10.  
  11.     NOTES
  12.     Kickstart 2.0+ required
  13.     compiles w/ Dice 2.07R - inline-pragmas required
  14.     compiles w/ SAS/C v6.51
  15.  
  16.     BUGS
  17.     none known
  18.  
  19.     TODO
  20.  
  21.     EXAMPLES
  22.     > pathpart ram:t/jabba.bak
  23.     ram:t/
  24.  
  25.     SEE ALSO
  26.     Suffix, FilePart
  27.  
  28.     INDEX
  29.  
  30.     HISTORY
  31.     01-08-93 b_noll created
  32.  
  33.     AUTHOR
  34.     Bernd Noll, Brunnenstrasse 55, D-67661 Kaiserslautern
  35.     b_noll@informatik.uni-kl.de
  36.  
  37. ******************************************************************************/
  38.  
  39. /**************************************
  40.         Includes
  41. **************************************/
  42.  
  43. #ifndef   EXEC_LIBRARIES_H
  44. # include <exec/libraries.h>
  45. #endif /* EXEC_LIBRARIES_H */
  46.  
  47. #ifndef   CLIB_EXEC_PROTOS_H
  48. # include <clib/exec_protos.h>
  49. #endif /* CLIB_EXEC_PROTOS_H */
  50.  
  51. #ifndef   DOS_DOS_H
  52. # include <dos/dos.h>
  53. #endif /* DOS_DOS_H */
  54.  
  55. #ifndef   CLIB_DOS_PROTOS_H
  56. # include <clib/dos_protos.h>
  57. #endif /* CLIB_DOS_PROTOS_H */
  58.  
  59. #include <proto/dos.h>
  60. #include <proto/exec.h>
  61.  
  62. /**************************************
  63.         Global Variables
  64. **************************************/
  65.  
  66.  
  67. /**************************************
  68.         Implementation
  69. **************************************/
  70.  
  71. long _main (void)
  72. {
  73.     const char* version = "$VER: PathPart 1.0 (23.8.93)";
  74.     long retval = 20;
  75.     struct Library* SysBase = *((struct Library**)4L);
  76.     struct Library* DOSBase;
  77.  
  78.     if (DOSBase = OpenLibrary (DOSNAME, 37)) {
  79.     STRPTR argv[2] = { NULL, NULL };
  80.     APTR   args;
  81.     retval     = 10;
  82.     if (args = (void*)ReadArgs("FILE/A", (LONG*)argv, NULL)) {
  83.         char * p; char c;
  84.         p = PathPart(argv[0]);
  85.         c = *p; *p = 0;
  86.         retval = 5;
  87.         if (PutStr (argv[0]) == 0) retval = 0;
  88.         PutStr("\n");
  89.         *p = c;
  90.         FreeArgs (args);
  91.     } /* if */
  92.     CloseLibrary (DOSBase);
  93.     } /* if */
  94.     return (retval);
  95. } /* _main */
  96.  
  97. /******************************************************************************
  98. *****  END PathPart.c
  99. ******************************************************************************/
  100.  
  101.